home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / main.dxr / 00036_print.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  785 b   |  36 lines
  1. on mouseDown
  2.   global speed
  3.   sprite(6).visible = 0
  4.   sprite(40).visible = 1
  5.   if speed = "slow" then
  6.     repeat with x = 38 to 54
  7.       sprite(x).locV = sprite(x).locV + 230
  8.     end repeat
  9.   else
  10.     repeat while sprite(44).locV < 142
  11.       repeat with x = 38 to 54
  12.         sprite(x).locV = sprite(x).locV + 10
  13.       end repeat
  14.       updateStage()
  15.     end repeat
  16.   end if
  17. end
  18.  
  19. on mouseLeave
  20.   global speed
  21.   if (speed = "slow") and (sprite(44).locV > 91) then
  22.     repeat with x = 38 to 54
  23.       sprite(x).locV = sprite(x).locV - 230
  24.     end repeat
  25.   else
  26.     repeat while sprite(44).locV > -82
  27.       repeat with x = 38 to 54
  28.         sprite(x).locV = sprite(x).locV - 10
  29.       end repeat
  30.       updateStage()
  31.     end repeat
  32.   end if
  33.   sprite(6).visible = 1
  34.   sprite(40).visible = 0
  35. end
  36.